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UN SALUDO DESDE S.I.M.O. 

En las fotografias de esta pagina se ve el stand de MICROELEC- 
TRONICA Y CONTROL S. A. en S.I.M.O. que se celebro en Madrid del 
19 al 26 de noviembre. A pesar del ruego que os formulabamos desde 
SONIMAG, la expectacion despertada por el VIC-20 ha sido de las que 
hacen epoca, y deciamos lo del ruego para evitar aglomeraciones... 
Pero no hay manera... jEn fin! como decimos en Catalufia: cuantos 
mas seamos, mas nos reiremos. jUn cordial saludo desde S.I.M.O. a 
todos los lectores de CLUB COMMODORE! 

En la fotografia de la izquierda, Jordi Sen/at, de MICROELEC- 
TRONICA Y CONTROL, S. A., hace entrega a Javier Meliveo del VIC- 
20 ganado en el sorteo celebrado en S.I.M.O. jOtro afortunado que se 
incorpora a la amplia comunidad de usuarios! (Fotografias P. Masats) 



Deposito Legal Sep. B. 2133-1958 - Altes, S.I., Caballero 87, Barcelona 
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EDITORIAL 



nueva 

el Club Commodore 




Aqul estamos de nuevo con una signi- 
ficativa mejora: para los suscriptores de 
CLUB COMMODORE salimos con die- 
ciseis paginas. Sin animo de echarnos 
faroles queremos resaltar un hecho. El 
"salto" es exactamente el doble (+3 
dB). Para dar una cierta idea del esfuer- 
zo que representa para la Redaccion de 
CLUB COMMODORE viene a significar 
la preparacion del DOBLE (+3 dB) de 
material, o sea que esto no es una sim- 
ple ampliacion sino un gran salto ade- 
lante. 

Queremos agradecer desde aqui las 
colaboraciones que ya estamos reci- 
biendo. En este mismo niimero se inicia 
una seccion dedicada a electronica a 
cargo de Rafael Pardo, ya conocido por 
los lectores de MICRO/BIT. Solo nos 
queda repetir el mismo "rollo" de siem- 
pre: ;A VER SI SEGUIMOS EL EJEM- 
PLO! 

SE NECESITAN 

APLICACIONES EDUCATIVAS DE 

LOS COMMODORE 

Aprovechando la ocasion queremos 
hablar de un tema que consideramos 
muy importante para los ordenadores 
personates COMMODORE en general 
y para el VIC-20 en particular. Se trata 
de las aplicaciones educativas en sus 
dos aspectos principales: la ensenanza 
de la informatica propiamente dicha y la 
ayuda que la microinformatica puede 
prestar a la educacion en general. En el 
primer aspecto, a pesar de nuestros es- 
fuerzos, no hemos detectado muchas 
iniciativas pero creemos que estas 
deben existir. En cuanto a la ayuda que 
los ordenadores personates pueden 
prestar a la ensenanza se estan hacien- 
do ciertas aplicaciones que son un buen 
principio pero algunas de ellas, por es- 
tar realizadas en el extranjero, son de 
dificil adaptacion en nuestro pais. Des- 
de estas paginas queremos hacer un 
llamamiento a todos aquellos que ten- 
gan alguna realizacion en este campo 
para que no olviden la plataforma que 



les ofrece CLUB COMMODORE para 
dar resonancia a sus trabajos, tanto a 
nivel de artfculos como de resena de 
productos existentes. 

Solo nos queda, ya que estamos en 
diciembre, desear a nuestros lectores, 
suscriptores, colaboradores y demas 
-ores y -oras: 



ViiiiiVVAum- ivfe^K/i 



jFELICES FIESTAS 
Y PRdSPERO ANO NUEVO! 

BON NADAL I FELIQ 1983! 

ZORIONAK ETA URTE BERRI ON 

jBOAS FESTAS! 



el mapa de 



Lon el animo de dar cierta ccntinua- 
cion a la Imea empezada el pasado 

mVnerc >vor> ::= ■"i;*'e:.:;c sokri < - ' 
iays-3 y ay-ovsc-sHc-'. k; &K .■'.'./-. ■ 
mapa de memoria del BASIC 4.0. voy 
a comentaros, de forma practica, el 

:■-■::■:'.■■:, :r : ':-: : -- : :r-:.-:: v:r-,r:-<v, „■■■■ .. ; -..- .-;::■.:.'■.!■ 
tas zonas de memoria Ivor ficjura 1). 

Pagina cero y zona de variables 

■V'4 :S5S;'ifi.-M 

Por pagina cero se entiende, estric- 
tamente hablando, la zona compren- 

: :-C:i: -■■ 'k. ;:,;;"<- C-;.\fc 5'-U ';/.!:;; 5FF 

(el signo S significa hexadecimal). De 
todas formas, el primer Kbyte de me- 
moria. hasta S0400 (1024 en decimal), 
esta reservado para punteros y varia- 
bles propias del sistema. 

Los comentarios sobre estos pun- 
'.-.;■:■::: ■■.:'.;:■; 's- h--;^;'- ■ V - ■'■':■- ;':■■:.:■•■:. 

^ ':"■"- ■..'••■'.-.' ■•"■": .:■;.: : : :, i! :: ''>:; — : ":'V..V. : .: j; 

de nilmeros pasados. 
Zona de programas 

1025 IS0401). Por tanto, en. las direc- 

'. ^ '■'■:. •;• ■■.■■■'■■ 
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2 

APLICACIONES 



programa para 
cifrar y descifrar 
mensajes 



por P. MASATS 



LA CODIFICACION DE TEXTOS 
PARA SU ENVI'O, A TRAVES DE UN 
MEDIO MAS O MENOS PUBLICO, 
DE MANERA QUE SOLO EL 
EMISOR Y EL RECEPTOR SEAN 
CAPACES DE ENTENDERLOS, 
ES UNA BUENA APLICACION DE 
LOS ORDENADORES, AUNQUE 
SUPONEMOS QUE POCOS DE 
NUESTROS LECTORES SE 
DEDICAN AL ESPIONAJE, HOY 
PRESENTAMOS ESTE PROGRAMA 




ILn la figura podemos ver un progra- 
ma que permite aplicar el VIC-20 a un 
tema algo exotico y poco habitual en 
las revistas serias de informatica: el 
espionaje (del contraespionaje quiza 
nos ocupemos otro dia, del contra- 
contraespionaje y sucesivos no quere- 
mos ni ofr hablar). Una de las misio- 
nes principales del buen espfa es la 
de comunicar informaciones sin que 
se entere mas gente de la estricta- 
mente necesaria (cosa que hacen es- 
pontaneamente los programadores de 
ordenadores cuando hablan entre 
ellos). Para ello se utiliza lo que se 
conoce como una clave, que es una 
frase corta y facil de recordar que da 
una pauta de sustitucion de las letras 
del alfabeto, de manera que los carac- 



teres del mensaje que se ha de trans- 
mitir quedan cambiados de la forma 
que indica la clave. Asi si se descono- 
ce esta, es (teoricamente) imposible 
descifrar el mensaje. 

Vamos a ver un ejemplo. Entramos 
el programa (extraemos las habitua- 
les travesuras de BUG), y pulsamos 
RUN. A la pregunta «£TEXTO INI- 
CIAL?»: respondemos con el texto 
que queremos cifrar, que puede ser: 
«EN UN LUGAR DE LA MANCHA» 
(original, £eh?), pulsamos RETURN y 
el VIC nos pide: .-iCLAVE SECRETA?» 
Entramos: «VIC-20 ORDENADOR PER- 
SONAL". Despues de un tiempo en la 
pantalla aparece un ALFABETO DE BA- 
SE que es el normal y debajo otro 
(ALFABETO CIFRADO) que es el re- 



sultado de modificarlo en funcion de 
la clave. Luego se nos pide si quere- 
mos un cifrado o un descifrado. Si pul- 
samos C obtendremos «TEXTO RE- 
SULTANTE»: 2PWJPWNJ VFW2WNV- 
WAVPCOV que es el resultado del ci- 
frado. A continuacion se nos consults 
por la opcion, cuyas alternativas son: 

I: Redefinicion de la clave. 

D: Descifrado. 

C: Cifrado. 

F: Fin. 

T: Entrar nuevo texto. 
Si pulsamos T y volvemos a entrar 
el texto resultante de la operacion 
anterior junto con la misma clave ve- 
remos que al descifrar obtenemos el 
mensaje original. jSuerte a los 007 
ocasionales! 



el mapa de memoria CBM 



. .- . ■-.■■:. p.;.-;- -y..:: ■■ 

mato peso bajo v peso c- 1 1 o . como po- 
demos comprobar oscribiendo en la 

■■' ^d^d^ddFd^drddd 
da fc:-;r:uiE irddvede ■.x:n-JV'ir'-:.i • ': 

. „ -vycp'k- :'c ;■::■: ;d p-?.;' ^usciiSr 
do. Lo mismo podemos hacer con las 
posiciones 42 y 43 que corresponden 

"■ ■ .-;■' de ■•:'!■-.•;■;;;"■>■•'.- d: .'.'•rhv.:p> 
zona de variables), dando el mismo 

«tres ceros» de fin do programa que 
algun dia explicaremos con mas de- 

■-.• . ;■ ' >;fv::-: 'ddd< \Z-r ,y CC.Mj de 
estar vacia la RAM). Si creamos una 
li'nea de programa, por ejemplo: 



mwmmfs 



******** 



.-■ ' " yc -;-<:;-•■■:■.■ i.T-.-:. .?-:., \ are -?.:; 'v<:4 
bytes mas: 2 para el link de lineas, 

'i:o { :e '■■■:■.' 6 '-a ' - :.■:-: ~,::.6'-- (■■■': ■ 

10 correspondientes a los asteriscos 

y el «cero» de fin de linen. En otro 



numero os comentan 

j.e ^--.■\f: '-x'vz ed tsds 

Zona de variables 

Llegados a esle pur 
servar, aplicando la a 
para las posiciones 44 
variab 
direccion: 1043. longil 
rando con el principi 
Si escribimos: 



X=25 



d it :'\ ;•: .■-"/;•; d ::.'• 

que es lo que oci 
In cabecera de ca 

dp,!:.:::: Cdrii vaidsb; 

Y"., - 

la longi:ud se vu 

. - ' dy-te;;: d -• : 
'ir- x\.yyey. r : r y :■: : 
"diddse r-,<, i;._ : 
zona porque no dc 
liable nueva. 

Zona de «arrays» 

F: !:%;:: .i-fc VV;dr£ 

principio de la zoi 
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LISTADO DEL PROGRAMA — 
PARA CIFRAR Y DESCIFRAR 

MENSAJES 



1 & REM+ -t- 

20 REM+ PROGRflMfl PRRR C I FRHP V •*> 
30 PEM+ DESCIFPfiP MEHSRJE5 -»- 
40 REM+ MICPOELECTPOHICR V -+■ 
30 PEM+ COHTPOL .: P . MRSflTS -*- 
60 REM+ BflRCELONR -•- 

7"© REM-*- 14 — SEPT. ~1?82 -+ 

80 REM-*- + 

99 PRINT 11 :-}" 

100 PPINT"**)ttf4«ff*>4>*!t««*W#»(******" 
110 PRINT"* *■■ 
120 PRINT"* PPOGRRMfl PRRR CI— * " : 
130 PR I NT"* PRRR V DESCIFPRP * " ,: 
1-40 PRINT"* MEHSRJES *": 
1 30 PRINT 1 '* * ■■ ; 
160 PP I MT " ********************** " 
170 REM 

190 RL* — "RBCDEFGH I JKLMHOPOPSTLIVUXVZ 01 23 

436799" 

1 ^0 RL* = RL*+ " ., . ' • *? .: *>tms f, > : *—•»»<;> .^TB-* " 

200 RL* = RL*+CHP*C34'i : REM CHP*C34 > *= " 

210 LG — LEN<! AL*:> 

220 REM EHTRRDR DEL TEXTO 

230 PR I NT " TEXTO INICI RL : » 

2-40 INPUTTE* 

250 REM IHTRODUCCION DE l_R CLAVE 

260 PPIHT'TLRVE SECPETR" 

27*0 IHPUTCL* 

280 REM SUPRES I ON DE LAS LETRRS PEDUNDRH 

TES 

2S»0 GOSUB730 

300 REM COMPLETRR LR CLAVE CON LAS LETPA 

S QUE PALTRN 

3 10 V*=CL* 

320 PORN— 1 TOLG 

330 A*-MID*CALf, N _. 1 > 

340 GOSUB820 

330 CL*-CL$+A* 

360 NEXTN 

370 REM I MPPES I ON BE LOS DOB ALFABETOS 

380 PPINT'TJ" 

3=-0 PRINT"RLFRBETO DE BASE ■ " 

400 PRINT 

•410 PRINTRL* 

420 PRINT 

430 RRINT"ALFABETO CIFRADO:" 

440 PRINT 

430 PRINTCL* 



IMPRESION DE CADA LET 



460 PRINT 
47"0 REM CIFRADO O 
480 PR I NT "CIFRADO 
C O D}" 

IHPUTED* 

I FED*<> "C "RNDED*<>" D"THEH490 

I FED** " C " THENE*-AL* : S*-CL* - GOTO530 

320 E*-CL* • S*-RL* 

330 REM BUSQUEDR E 

RA 

340 PRINT"T 

530 PRINT"TEXTO RESULTANTE ' " PRINT 

360 V*-E* 

FORL- 1 TOLEN < TE* > 
A*— M I D* < TE* -■ L ., 1 > 

390 OOSLIB820 

600 IFA-OTHENPPINTAf; : GOTO620 

610 RRINTMID*<S*, A.. 1 > .: 

620 NEXTL 

630 PRINT 

640 REM SEOUIR 

G^.(3 PRINT 

660 FRINT-FUNCION <I,D-C,F O T > " 

67*0 INPUTED* 

I FED*— " D "OPEBt- " C ■' THEH500 
IFED*-" I "THENRRINT'Tl" : GOTO230 
I FED*- " T " THENPR I NT " T' : GOTO220 
I FED*<> "F " THENPP I NT " ^" : OOTO660 
END 

7-30 REM SUPRES I ON DE LETRRS PEDUNDANTES 

EN LA CLAVE 

7*40 C*— "" 

750 FORN-1 TOLEN <CL*> 

760 A*— M I D* < CL* .. M -, 1 > 

770 V*=C* - GOSUB830 

780 C*-C*-»-R* 

790 NEXTN 

800 CL*-C* 

818 RETURN 

820 REM BUSQUEDR DE CRRRCTEP DENTPO DE U 

NR CADENA 

830 R— 

840 FORK— 1 TOLEN t_ V* > 

830 IFR*-MlB*fV*.. K.. 1 )THENA*-=" " ■ R=-K ■ K-LEN 

( V*> 

860 NEXTK 

870 RETURN 

RERDV. 



490 
300 
310 



370 
380 



680 
690 
700 
710 
720 



' '.z'^'V- r . ; ; ; ; . .:;,■■: .. ■ :-.., 

Volviendo al tenia tie las «zonas», 

' -> : :r''cs '-::-■■■: : -•.•-••■•- : ;; S .-v-ear 
una caclena cle 9 caracteres, que junto 
a Ins 2 bytes de lincaje (enlace] nece- 

■;■■ .: '<■'-■;■ ■?,:■ ,:,::, v;,--- : :," ■ . • 

Las instrucciones CLR y NEW 

Una vez vistas, por encima, las dis- 
tintas zonas cle memoria en que se 
divide la RAM con el trabajo del BASIC 

de Cc-'™ ' -;;■:.;. ..-.-; go .-■■•' 

idea un «poco» mas clara de su fun- 

Y hablando de ■clara- vamos a lim- 
piar las distintas zonas de variables, 
en general, con la ins. .■ 
(clear). Lo que hace este s : , 
del BASIC es, sencilla' 
cero las longitudes de estas 
ciendo las posiciones de fin 
y fin de variables igualesaladireccion 



POKE45,PEEK(43) POKE47,PEEK(43) 

^ .: ; ; ;'■■:■::■: :. '::.. ' ■•" r ."■■' .: ' \:C'-. ..- '. 
.:.:.. ■:■■'..!'■ :•"■■:•"-'■:::■■■■.. y. -?■:-.-.. ; -\r.'e.-' :■•■:-,. '---': 
•:' ''•';•";:■■• ■' '";""■ ' :- . , ■: "■■ v -:.■:■ .■- .;■■- 

. - ". :'-■ ■':? "■' - : t. -■■'■:.;.:■:■■..■:■ > ■'■--! - - 
de inicio. ,'PERO NO LO MACHACAN! 
: ■. '.'■■■' -V* ■:• .. : .. - ;;■ "." , ;.■'•. '■!;; ;.:;-,- 

EL future en Ventana CBM 

Una vez abierta la polemica. en el 

- '•:•.■ .■.:■"■•;-■■:. a^ tO-;,;-.i .';•;.•■/ .51::": : : --- 



ficial, peio a la vez facil de entender, 
tengo la intencion de profundizar mas 
en esta linea con los temas que pro- 

— Zona de strings 2.' parte y el 
••garbage collection" 

— Viaje a las profundidades de la 
zona cle programas 

— Estructura cle las cabeceras de 

Como siempre, acepto vuestras su- 
fen's que a todo esto se adelante el 

■'.:.'. :::: , -;/"> ,>:^iii •-;■. ...;"'' rsr.!.,:;".."!';',:?",--.-!'-!-.'^ 

de los unidades cle discos «Commodo- 



UN ANUNCIO PARA ANUNCIANTES 

Las paginas del CLUB COMMODORE estan disponibles (no todas) 
para publicidad de productos relacionados con los ordenadores 
personales de COMMODORE. Los interesados en este tema pue- 
den Ilamar a: M1CROELECTR6NICA Y CONTROL, S. A. Telefono 
(93) 250 51 03. Los que asi lo hagan pueden contar — de antema- 
no — con el eterno agradecimiento de alguno de nuestros redac- 
tores, atosigado por este moderno tormento chino llamado «cierre 
de edicion». 
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10 REM EMISOR COM UN 

20 PRINT"TTfiE<3> "EMISOR COMUN' 



30 PRINT 

•4-0 PRINT 

30 PRINT 

60 GETZ* 

7"0 IFZ*= 

60 GOTO60 

90 PRiNT-ra 1 



■ PRINT" 1-NPN" 
- PRINT"2-PNP" 
: PRIHT"PULSE 1 O 2" 
: IFZ*=" 1 "THEHH=1 - OOTO90 
" THEHN-2 : GOTO90 



INPUT"UCC<V> ' 



; uc 



INPUT" IC<Mfi> ■■ ; IC 
INPUT "UCE<V> ";U1 
INPUT'UECV) ■" ; U2 
INPUT"HFE" ; HF 
INPUT-S" ; s 

INPUT "H I E< KOHMS? " ; HI 
INPUT"RO<KOHMS) " ; RG 
I NPUT " Rl_ < KOHMS > " J RL 
IHPUT"FTMINCHZ> " ; FT 



100 PRINT : 

110 PRINT ■■ : 

120 PRINT : : 

130 PRINT : : 

1-40 PRINT = : 

150 PRINT = : 

ISO PRINT : : 

17*0 PRINT : : 

1S0 PRINT = : 

130 PRINT" 

230 IB=IC/HF : IE*IE+IC ■ RE=U2/IE 

210 RC=<UC-(U2+U1 >>/IC 

220 RE— < <RE*S)-RE>/< 1-<S/<HF+1 > > > 

230 IFH*1THENUH=IB#RE+. 6-t- IE#RE*<HF+ 1 > ■ QO 

TO230 

2-4-0 UH=!B*RB-. 6+IB*RE*(HF+l > 

230 R1=UC*<RB/UH> i R2=<RB*R1 )/<Rl-RB> 

260 PRIHT'TflLCULO DE LRS RES I STENC I RS " 

27-0 PRINT : PRINT"RC=" i RC ; "KOHMS" 

2S0 PRINT = PRIHT"RE=" ; RE; "KOHMS" 

290 PRINT : PRINT"R1=" 1 Rl ; "KOHMS" 

300 PRINT ■ PRIHT"R2=" ; R2; "KOHMS" 

310 GOSUBQ30 

320 PR I NT " »*NORMRL I ZRR## " 

330 PRIHT-RC-" J RC : PRINT-RE-" 1 RE l PRINT"R1 

=»" ; Rl : PRINT"R2=" ; R2 

3-40 PRINT • PRIHT"NORMRLICE ESTOS VRLORES" 

330 PRINT: INPUT-RC" ;RZ t I NPUT " RE " ; RN : INPU 

T"R1 " ; R3 : INPUT-R2" ; R4 : PRINT 'T^" 

3&0 RV=<R3*R4>/<R3+R4) :US»<UC*R4>/<:R3<-R4 

y 

37*0 IFN-1THENIV=<US-. 6>/<RV+<RN*<HF+l > > > 
: GOTO390 

38© IV=<US+, 6>/<RV+(RN*CHF+l > > > 

390 IZ=HF*IV ■ IN*IV+IZ 

■400 U4-IN#RN : UB=-IZ*RZ 

■410 UD«=UC-<:UB+U4> 

420 PRINT"VRRIHCION DEL PUNTO Q" 

430 PRINT" I C < DRDR > — " i IC 

440 PRINT" IC<CRLCULRDR>«" i IZ 

430 PRINT "UCE<DRDR)-" i Ul 

460 PR I NT " UCE < CRLCULRDfl ? - " i UD 

47*0 PRINT"UE<DRDR>»" J U2 

480 PRINT"UE(CRLCULRDfl>-" ; U4 

490 PR I NT : PR I NT " 1 — VRR I RC I ON DE LOS DRTOS 



300 

310 
320 
330 
340 
330 
360 
570 
SS0 
390 
600 
610 
€20 
630 
6-40 
630 

L> > 
67-0 
660 
690 

700 

7*10 
7-20 
7-30 
7-40 
7*30 
7"60 
7" 7-0 
7-30 
JO" 
7-90 
800 

ai0 

S20 
830 
IER 
840 

830 



PRINT = PRINT-2-SEGUIR EL PROVECTO" 

PRINT s PRINT"PULSE 1 O 2" 

GETB* S IFB*-" 1 "THEH20 

I FB*- " 2 " THEN330 

OOTO320 

PR I NT " 72" ■ GM- < I Z/26 > W 1 000 

RS-HF/GM : R6-HI-R5 

UT-RV/< RV+RG > 

V— < RZ*RL > S < RZ+RL > 

RT=- < RV#RG > S C RV+RG > 

D"<RT/CRT + HI > >*RS*GM*V 

RV=20#<LOG<D>/LOG< 1©> > 

PRINT"CRLCULO DE LR GRNRNCIR" 

PR I NT : PR I NT " RV- " ; RV i " DB " 

GOSUB830 

PR I NT " nCRLCULO DE LOS CONDENSRDORES " 

L-R6+R3+RH*<HF+1 > = RH»RG+( <;RV*L>^<RV + 

U=CR3+R6+RV)/«;HF+1 > = RM-= C RH*W > S C RN+W > 

RO=RZ+RL 

CI-lE + 3/<2*tr*RH*<FT,' , 3> > 

CE* 1 E + 3/ < 2*rr*RM*FT ) 

CO«=lE + 3/<2*»r*RO*<FT/3> > 

PR I NT : PR I NT "CI N= " J C I J " UF " 

PR I NT : PR I NT " CE= " ; CE J " UF " 

PRINT : PRINT"COUT=" J COJ "UF" 

GOSUB830 

PR I NT " 721 — REPET I R RESULTRDOS " 

PRINT : PRINT-2— NUEVO PROVECTO" 

PRINT : PRINT-3-RIN DE SESION DE TRRBR 

PRINT s PRINT-PULSE 1>2 O 3" 
GETE* : IFE»-" "THEN300 

Z*VRL<E*> - OHZGOTO190, 20, S20 

END 

PRINT = PRINT"PRRR SEGUIR PULSE CURLQU 

TECLR" 

GETR* : IFR*=" "THEH840 

RETURN 



RERDV. 



(Fig. 1) 



ELECTR6NICA 




Aqui empieza una colaboracion que es- 
peramos sea interesante para los lectores 
de CLUB COMMODORE. R. Pardo, que ya 
ha publicado algunos trabajos en "MI- 
CRO/ BITh, va a llevar sobre sus hombros 
la responsabilidad de una section de 
nuestra Revista dedicada a programas 
para diseno de electronica. jle deseamos 
mucha suerte! 



Este programa calcula etapas pre- 
amplificadoras de baja frecuencia en 
emisor comun, con transistores PNP o 
NPN de silicio. Si se quisiera trabajar 
con transistores de germanio se de- 
berfa cambiar en las lineas 230, 240, 
370 y 380 el valor .6 por el .1. 

El programa funciona de la siguiente 
manera: 

Las lineas 20-80 piden el tipo de 
transistor con el que se quiere traba- 
jar (NPN-PNP) y se debe pulsar solo la 
tecla que el ordenador indica (no es 
necesario pulsar RETURN). 

Las lineas 90-180 permiten entrar 
los valores de los parametros a los 
que se debe cefiir el diseno. [Se deben 
introducir los valores en las unidades 
que le indique el programa. No debe 
hacerse de otra manera porque podria 
dar resultados erroneos). Despues de 
introducir cada valor se debe pulsar 
RETURN. 

En las Ifneas 190-250, el programa 



VARIABLE 


NPN 


PNP 


VARIABLE 


NPN 


PNP 


Ucc 


20 V. 


20 V. 


R1 


58.214 Kohms. 


198.23 Kohms. 


Ic 


2 mA. 


2 mA. 


R2 


5.404 Kohms. 


5.07 Kohms. 


Uce 


4 V. 


4 V. 


Rc(Norm.) 


7.5 K. 


7.5 K. 


Ue 


1 V. 


1 V. 


Re(Norm.) 


.51 K. 


.51 K. 


hFE 


100 


100 


RKNorm.) 


56 K. 


200 K. 


s 


10 


10 


R2(Norm.) 


5.1 K. 


5.1 K. 


hie 
Rg 


6 Kohms. 
1 Kohms. 


6 Kohms. 
1 Kohms. 


lc(Cal.) 

Uce(") 

Ue(") 


1 .903 mA. 
4.744 V. 
.9809 V 


1 .942 mA. 
4.138 V. 
1 .000 V. 


RL 


15 Kohms. 


15 Kohms. 


Av(dB) 


35.61 dB. 


35.69 dB. 


Ft 


100 Hz. 


100 Hz. 


Cin 


1.494 muF. 


1.426 muF. 


Re 


7.5 Kohms. 


7.5 Kohms. 


Ce 


18.179 muF. 


17.769 muF. 


Re 


.495 Kohms. 


.49 Kohms. 


Cout 


.353 muF. 


.353 muF. 
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por R. PARDO 

calcula los valores de las resistencias 
de polarizacion y en las lineas 260-300 
los presenta. Si alguno de los resulta- 
dos da negativo es debido a que antes 
se han introducido unos valores que 
no «cuadran» con los demas. Revise 
sus datos, corrijalos y vuelva a ejecu- 
tar el programa. 

Las lineas 320-350 piden que se nor- 
malicen los valores de resistencia. Las 
Ifneas 360-41 calculan la variacion del 
punto Q; las lineas 420-450 le presen- 
tan las variaciones de Q que han ocu- 
rrido y pregunta si debe seguir el dise- 
no o vuelve a presentar la entrada de 
datos para corregir alguno de ellos. 
Si se elige lo ultimo, no deben intro- 
ducirse de nuevo todos los valores. 
Pulsese RETURN hasta que aparezca 
el que se quiere variar, introduzcase el 
valor y repitase el RETURN hasta que 
se termine de ejecutar la entrada de 
datos. Entonces el programa sigue 
normalmente. 

Sigue el programa y las lineas 550- 
610 calculan la ganancia total de la 
etapa, presentandola en las lineas 620- 
630. El calculo de los condensadores 
de acoplo se realiza en las lineas 650- 
710, presentandose sus valores en mi- 
crofaradios (lineas 720-740). 

Las lineas 760-820 preguntan si se 
desea iniciar un nuevo proyecto, repe- 
tir resultados (en este caso, en la sec- 
cion NORMALIZAR no debe volverse 
a introducir de nuevo los valores nor- 
malizados; bastara con pulsar RETURN 
cuatro veces y el programa presentara 
los valores anteriores de la variacion 
del Q) o bien finalizar la ejecucion del 
programa en cuyo caso el ordenador 
respondera READY. 

Las lineas 830-850 contienen un pe- 
queno subprograma para facilitar el 
paso de una pantalla a otra. 

JUEGOS DE VALORES PARA LA 
COMPROBACION DEL PROGRAMA 

En la tabla adjunta se dan dos jue- 
gos de valores para la comprobacion 

nmnrama 




RADIOAFICION 



unci 
VIC! 



del 

bn RTTY 



del programa. 



Sabemos de algunos radioaficiona- 
clos que ya estan trabajando la mo- 
dalidacl de RTTY con ei VIC-20. pero 
tambien sabemos de «otros» que 
solamente estamos al inicio del 

'•'J-A.'l':, 

Por eso cuando cayo en nuestras 
manos una revista alemana, con un 
programa titulado TELEX, un circuito 
y las palabras Baudot y TTY. cundio 
el ponico. <■ Sera?, ^no sera? Pusimos 
manos a la obra: entrar el programa 
y buscar al amigo de turno que nos 
tradujera, clentro de lo posible, aque- 

El resultado de la traduccion indi- 
caba que. para los que deseasen uti- 
lizar como impresora barata del VIC- 
20 un teletipo. aquel program:! tra- 
ducia los caracteres y, con el peque- 
no circuito de la figura 1, lo acopla- 
bamos. Si traducfa los caracteres pa- 
is =".■• '^>4:;nc f ,(; poe;2*H-:.= .; vwh : -il 
jen RTTY! Habia que comprobarlo. 

El funcionamiento del programa in- 
dicaba que cualquier mensaje que 
imprimiesemos por pantalla o impre- 



sora saldn'a tambien hacia el tele- 

":ipo,. 

■ ■; r, :-rr : -•;.-;■. ;;;:;ob?: q:.^ •■■<'-■ f' ! tec :'::>,& 
imprimiendo varias «R», que cono- 

revistas, y observando la seiia! en el 

> '.'■'. ■.'. r i:::.'i:-.k;. i e;K-i :.ir< V<\\ dy r,iV-m- 
que, los cinco de mensaje correspon- 
cliente^s, uno y medio de stop y cada 
uno duraba 22 ms: ;era BAUDOT! 
Despues de este primer exito de- 



! I?"; 



.:>c 




■; .■: ■ '■'.".'.. 



►12V 




m>%% 



IN X~" 

6b0 fj y Mognt! 



Fig 1 - Esquema de conexion del teletipo 
con el port del usuano 
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RINC6N DEL VICCOLAGE 





inicios del VIC-20 en RTTY 



(viene de la pag. anterior) 



ci 
AF 



1 POKE56,23 

5 PRINTS TELEK" 

10 FORX=0TO255 : REHDFI : POKE7424+X, Fl : NEXT 

20 PRINT ,I »BVS?64S IMPRESION ON" 

30 PRINT"SVS7659 IMPRESION OFF ": END 

100 DHTH165.24S, 162, 128. 142, IS, 145,201, 1 

3, 208, IS, 169, 8, 32, 33, 23 

116 DRTR 169, 2, 32, 33, 23, 1 69 , , 7-6, 33, 29, 23 

4,41, 63, 170, 139, 116 

132 DHTH 23, 133,249,41,32, 197,248,240, 14 

,133, 24S, 16S, 240, 4, 163, 27 

14S DRTH208, 2, 163, 31 , 32, 63, 23, 165, 243, 32 

, 63 ,23,1 98 , 250 ,36,1 62 

164 BRTH127, 142, 16, 145, 32, 102, 23, 160, 4, 7 

4 , 144,4, 1 62 , 255 , 208 , 2 

1 SB DRTR 1 62 , 127, 142, 16, 145, 32 , 102,23. 13fi 

, 16,238, 162,255, 142, 16, 145 

136 DRTFI 162, 30, 32, 104, 23, 36, 162, 20, 1 34 , 2 

47,1 62 , 223 , 202 , 208 , 253 , 1 93 

212 DRTR247 , 16,247,36,0,3,25, 14,3, 1, 13.2 

6, 20, 6,11,15 

223 DRTR1S, 28, 12, 24, 22, 23, 10,5, 16, 7, 30, 1 

3, 23, 21 , 17, 47 

244 DRTR0, 50, 45, 0, 36, 60, 37, 45, 5,61, 43, 37 

, 47, 50, 45, 43 

260 DRTR44, 35, 60, 61 , 54, 55 , 5 1 , 33, 42 . 48 . 53 

, 33, 38, 56, 46, 44 

276 DRTR36 ,62, 36, 57, 72, 133,249, 138,72, 15 

2, 72, 165, 243, 201 ,13, 240 

232 DRTR14, 166, 250, 208, 16, 72, 163, 13, 234, 

133,249,32,0,23, 104, 1 62 

30S DRTR65, 134, 250, 133, 243, 32, 0, 23, 104, 1 

68, 104, 170, 104,76, 122,242 

324 DRTR 1 69 , 180, 141,38,3, 16929, 141,39,3 

, 36, 163, 122, 141 , 38, 3 

340 DRTR 1 63 , 242 , 14 1, 33 , 3 , 36 , 234 , 234 , 234 , 

234, 234, 234, 234, 234, 234, 234 

RERDV. 



(Fig. 2) 



Alguno de nuestros amigos se esta- 
ran preguntando si en verdad el equipo 
de Redaccion esta descuidando un po- 
co su ortograffa, otros diran diran que 
nuestra mascota, el BUG, ya ha estado 
haciendo de las suyas; bien, pues ni 
lo uno ni lo otro. El nombre de «RIN- 
C6N DEL VICCOLAGE.., con el que, a 
partir de este momento y hasta que no 
se nos ocurra otro mejor, denominare- 
mos a esta seccion de la Revista, in- 
tentara ser una fuente de ideas lumi- 
nosas para esa rara especie — algunos 
dicen que en vias de extincion — lla- 
mada HOMO VICOLATRIX, especie 
esta que se diferencia del HOMO 
SAPIENS en que se empena en hacer 
el mismo lo que los demas saben ha- 
cer mejor y mas rapido (y a los que ha 
de recurrir al final en muchos casos). 

En esta seccion intentaremos dar 
ideas simples, faciles de poner en 
practica y que no signifiquen un gran 
desembolso para nuestros lectores. 
En suma, ideas geniales. 

La idea general de los articulos que 
en esta seccion iran apareciendo, es 



co) en reposo losp; 

- 
rlaH f 



: : 



la de poder disponer de una serie de 
desarrollos simples y modulares que 
nos permitan, en un momento dado, 
recopilarlos parcial o totalmente en 
una aplicacion determinada, por ejem- 
plo, C6MO AUTOMATIZAR SU HO- 
GAR CON EL VIC-20, aplicacion esta 
que sera la base de nuestros proximos 
articulos. 

Hacemos una invitacion desde estas 
Ifneas, para que todos aquellos que 
deseen ver su nombre y obra impresos 
en letras de molde, nos remitan sus 
trabajos lo mas completos, detallados 
e inteligibles posible. Los trabajos ten- 
dran que ser comprobados, por lo cual 
seria de agradecer que, junto con el 
articulo, nos remitieran un prototipo 
del desarrollo, que sera devuelto. 

La manera mas elegante de presen- 
tarnos un articulo serfa: 

1. El articulo en sf, con una justifica- 
cion lo mas clara posible del por- 
que del desarrollo; una descrip- 
cion a nivel de sefiales del funcio- 



por M. SANS 



namiento; una lista de materiales, 
etcetera. 
2. En folios aparte, los esquemas del 
disefio en cuestion. iEntendido? 
Bien, pues animo y adelante, espe- 
ramos vuestros trabajos. 

Sf, sf, todo esto esta muy bien — di- 
ra alguno de nuestros sufridos lecto- 
res — , pero ique hacemos los que sin 
dedicarnos al VICCOLAGE tenemos al- 
gun problema de HARDWARE? 4N0 
podriamos solucionarlo nosotros mis- 
mos? iSera esto VICCOLAGE? 

Bien, tranquilos, los amigos que ten- 
gan algun problemita pueden escribir- 
nos con el maximo de detalles e inten- 
taremos solucionarlo, publicando la 
respuesta en otra seccion de la Revis- 
ta, a la que llamaremos jSOCORRO! 



UNA APLICACION PARA 
AHORRAR ENERGlA 

En estos tiempos en que la energfa 
es tema cotidiano, veamos que es lo 



que podemos hacer para aprovecharla 
mejor. 

Con la entrada en el invierno, es 
cada vez mas comun la utilizacion de 
calefaccion electrica, bien en forma 
de placas, bien en forma de radiadores 
calefactores (idonde estan los bra- 
seros o las chimeneas con sus troncos 
ardiendo?). Bien, pues, la aplicacion 
que proponemos nos permitira aho- 
rrar en calefaccion del orden del 10 
al 20%. 

La primera pregunta que se nos ocu- 
rre es ^como podemos utilizar nuestro 
VIC-20 para controlar la calefaccion?, 
ique interfaz supercomplicada ten- 
dremos que disefiar para controlar to- 
do esto? Bueno, la primera idea que 
se nos ocurre consiste en disminuir 
la calefaccion durante las horas de 
suefio. jBravol, ya tenemos un punto 
de partida. Si, ademas, disminuimos 
tambien la temperatura, dependiendo 
de. la ausencia de ocupantes en la 
habitacion, tendremos un ahorro con- 
siderable. 

Bien, tomemos como ejemplo un 
radiador de conveccion (placa) con un 
termostato incorporado. El sistema de 
control que hemos de adoptar ha de 
ser tal que no necesitemos de una 
interfaz de potencia, ni tengamos que 
efectuar grandes modificaciones en 
nuestra instalacion electrica. Ademas, 
en caso de fallo del ordenador, cosa 
no del todo improbable (jtoquemos 
madera!) hemos de evitar, en lo posi- 
ble, que los ocupantes de la habitacion 
adquieran la apariencia de jpollos a 
I'ast! La solucion que se nos ha ocu- 
rrido es poner cerca del termostato 
una resistencia de tal manera que po- 
damos hacer que radie calor, con lo 
cual el termostato creera que la tem- 
peratura de la habitacion es mas alta, 
y la disminuira. Esta resistencia se ha 
de colocar lo mas cerca posible del 
bimetal del termostato. 

(pasa a la pag. siguiente) 
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NOMBRE EDAD 

DIRECClON 

POBLAClON ( ) PROVINCIA 

TELEF MARCA Y MODELO DEL ORDENADOR 



APLICACIONES A LAS QUE PIENSA DESTINAR EL EQUIPO 



Deseo iniciar la suscripcion con el n.' 



(Enviar a la direccion del dorso) 



Firma, 



DESEO SUSCRIBIRME A "CLUB COM- 
MODORE" POR UN ANO AL PRECIO 
DE 1.100 PTAS., QUE PAGARE CON- 
TRA REEMBOLSO AL RECIBIR EL NU- 
MERO CON EL QUE SE INICIA LA SUS- 
CRIPClON. DICHA SUSCRIPCION ME 
DA DERECHO, NO SOLO A RECIBIR LA 
REVISTA (ONCE NUMEROS ANUA- 
LES), SINO A PARTICIPAR EN LAS AC- 
TIVIDADES QUE SE ORGANICEN EN 
TORNO A ELLA Y QUE PUEDEN SER: 
COORDINAClON DE CURSOS DE BA- 
SIC, INTERCAMBIOS DE PROGRA- 
MAS, CONCURSOS, ETC. 
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8 como automatizar su hogar con el VIC-20 

(viene de la pag. anterior) 

un transistor trabajando en conmuta- 

cion. Con este transistor (un 2N3643 
En la figura 1 tenemos la estructura En la figura 2 se da el diagrama del 6 equivalente) controlamos un rele 

general del conjunto resistencia-con- circuito decontrol en el que, mediante reed de 5 voltios. 
trolador-radiador. un circuito CMOS 4049, controlamos Si desde nuestro VIC-20 programa- 
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MEA CULPA 

una aclaracion 
al listado del 
articulo "DOS 
PROGRAMAS 
INTERESANTES" 
(Publicado en el n.° 2, 
pag. 7) 



25 Print chrStWJ 



PRRH-LHDRILLOS" , 



2G print "IBIDebes IMPED I R •que s.e 
ntonen los. . . " , , , " LRDRILLOS 1 

27 print "EF-air.a co-nse9uirlo. . . • " * , * " 

PHRHLOS ! ! • " 
2S Print "5»Control de U ti.a.rr.a. ■ " > , , " * 
■'------ Izquierda. " 

29 Print "El '.' Derecha. " 

30 Print "EI **P.a.r.a c:omenza.r : " .. , , " RIJLSR 
UNfi TECLfl. " 



ready . 



Seri'a por la emocion de publicar nuestro primera collaboration, o porque 
estdbamos en la Luna (no solemos ir a menudo), pero la cuestion es que se nos 
colo una mala pasada de BUG en el listado de la izquierda de J. MELGAR. En 
las lineas 25, 26, 27, 28, 29 y 30 hay una serie de mensajes en minusculas que 
reconocemos son dificiles de interpretar tal como los hemos listado. Para repa- 
rar el error y despues de pedir los perdones que haga falta (y habiendo casti- 
gado a BUG de eara a la pared durante algunos milisegundos) damos en la 
figura adjunta el listado correspondiente en minusculas. 



mos un nivel bajo en la salida PBO del 
port del usuario, el circuito IC1 nos 
aplicara un nivel alto a la base del 
transistor TR1, activando este al rele. 
Vemos que, en el caso de un fallo 
en el controlador o en el circuito de 
interfaz, en el peor de los casos (que 
el rele se quedase activado) la tempe- 
ratura de la habitacion tenderfa a ba- 
jar. 

En la figura 3 se presenta el diagra- 
ma de la fuente de alimentacion, ya 
que tenemos un consumo limitado en 
el VIC. En el proximo numero veremos 
como controlar el numero de personas 
en una habitacion y el programa de 
control del sistema en BASIC. ■ 
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FILOSOFfA APLICADA (I) 



la ley de Murphy 
y sus corolarios 



Hay que advertir de antemano al lec- 
tor que no se ha equivocado de revis- 
ta y que el equipo que redacta CLUB 
COMMODORE no se ha pasado en blo- 
que de las Ciencias a las Letras. Lo 
que ocurre es que — sin que sirva de 
precedente — queremos hacer llegar 
al usuario de ordenadores personales 
algunas consideraciones «casi filoso- 
ficas» sobre las cosas que nos ocurren 
a todos cada dfa. 

Solemos considerar que hoy en dfa 
la Ciencia tiene una respuesta para 
cada pregunta que podamos formular. 
Aunque esto no es comunmente acep- 
tado por los cientificos profesionales, 
al hombre de la calle se lo han hecho 
creer de una manera o de otra y en 
unos tiempos en los que se tiende a 
valorar las cosas que nos rodean des- 
de un punto de vista estrictamente 
practice no dejan de sorprender cier- 
tos «comportamientos» de objetos su- 
puestamente inanimados y la malevo- 
la inoportunidad de ciertas «casualida- 
des». 

Si usted ha recibido alguna vez una 
Mamada telefonica en el momento de 
instalarse en el bafio; si despues de 
esperar un buen rato el autobus este 
aparece a los pocos segundos de en- 
cender un cigarrillo; si usted ha lava- 
do el automovil horas antes de que llo- 
viera o le ha sorprendido la lluvia el 
unico dia que no Ilevaba paraguas, en- 
tendera perfectamente a que nos refe- 
rimos. (Conscientemente evitamos ha- 
cer una lista — siquiera superficial — 
de los centenares de trastadas que su- 
frimos habitualmente los usuarios de 
ordenadores. Serfa demasiado facil.) 

La Ley de Murphy fue el primer paso 
que dio un ingeniero aeronautico nor- 
teamericano de este nombre en 1949 
para «sistematizar» (?) estos imponde- 
rables que, por serlo, escapan a la 
Ciencia y — es evidente — no pueden 
sertratados seriamente ni por la Logi- 
ca ni la Mistica. La Ley de Murphy 
dice: 

SI ALGO PUEDE IR MAL, IRA MAL 



por PERE MASATS 

Lo cual no parece gran cosa a pri- 
mera vista... Hasta que uno — natu- 
ralmente esceptico — empieza a ensa- 
yar su aplicacion. Entonces, los resul- 
tados son pasmosos. 

Desde 1949 ha corrido mucha tinta 
y en lo que respecta a los aspectos 
practicos de la Ciencia las cosas han 
avanzado a una velocidad no menor a 
la causada por una energica patada en 
el trasero. Con ello, la Tecnica tam- 
bien se ha complicado y con ella han 
crecido las oportunidades de la aplica- 
cion de esta Ley. Tambien con el paso 
del tiempo se han multiplicado los 
filosofos espontaneos y con ellos los 
corolarios y adaptaciones a diferentes 
aspectos del trabajo de cada dia. En 
este artfeulo vamos a dar una lista 
de los que han llegado a nuestras ma- 
nos — gracias a la colaboracion de 
M. Amado de «Microelectronica y Con- 
trol" — , y como no sufrimos el sindro- 
me de la falsa modestia empezaremos 
por nuestra version de la Ley de Mur- 
phy: 

SI ALGO PUEDE IR MAL, NO S6L0 
IRA MAL SINO QUE ADEMAS LO 
HARA EN EL MOMENTO MAS 
INOPORTUNO 

Asi, el llamado COMITE DE LA SO- 
CIEDAD INTERNACIONAL DE INGE- 
NIEROS FILOSOFOS dice haber descu- 
bierto lo siguiente: 

1. En cualquier formula las constan- 
tes (especialmente las obtenidas 
en manuales de ingenieria) deben 
ser tratadas como variables. 

2. El prometido plazo de entrega de- 
be multiplicarse por un factor de 
2.0. 

3. El rendimiento estimado por el 
fabricante de un producto debe 
multiplicarse por 0.5. 

4. El rendimiento estimado por el 
vendedor debe multiplicarse por 
un factor de 0.25. 

5. Cuando mas de una persona es 
responsable de un error de calcu- 
lo, ninguna tendra la culpa. 




6. Cuando se establezca un indice 
de seguridad, un idiota ingenioso 
calculara rapidamente un metodo 
para excederlo. 

7. Las clausulas de garantia quedan 
anuladas con el pago de la fac- 
tura. 

8. La pieza que la fabrica se ha olvi- 
dado enviar es la unica absoluta- 
mente necesaria para que el apa- 
rato funcione. 

9. No solo la fabrica se ha olvidado 
enviar la pieza sino que ademas 
raramente la fabrica. 

10. Las partes que precisen ajuste o 
servicio periodico seran las me- 
nos accesibles. 

Como piezas sueltas de este mues- 
trario veamos las siguientes: 

— Es imposible hacer nada a prueba 
de tontos porque los tontos son 
muy ingeniosos. 

— La otra cola siempre avanza mas 
aprisa. 

— Cuando nuestro avion Mega con re- 
traso, el avion con el que debemos 
enlazar despegara puntualmente. 

— Las posibilidades de que una tos- 
tada caiga al suelo por el lado de 
la mantequilla son direcfamente 
proporcionales al precio de la al- 
fombra que hay debajo. 

— Cualquier aparato funciona mejor 
cuando se enchufa. 

— No hay que forzar nunca un apara- 
to; basta con utilizar un martillo 
mas grande. 

— En tareas de investigacion, si los 
hechos contradicen la teoria, los 
hechos deben ser descartados de 
inmediato. 

— El hombre que sonrfe cuando las 
cosas van mal, es que ya ha encon- 
trado a quien echarle la culpa. 

— Bajo las condiciones mas rigurosa- 
mentecontroladas de presion.tem- 
peratura, volumen, humedad y de- 
mas variables, el organismo reac- 
cionara como le venga en gana. 

— En poker, una pistola Parabellum 
gana a cuatro ases. 

(continuara) 
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MAPA DE MEMORIA DEL VIC-20 (IV) 



un editor de 
caracteres para el VIC 






fcste es — de hecho — la continua- 
tion logica del articulo anterior, en el 
que se realizaba un analisis detallado 
de las funciones del «chip» mas impor- 
tante del VIC-20: el controlador de 
video. A causa de la naturaleza del 
tema no era posible dar una aplicacidn 
inmediata al contenido del articulo y 
este tuvo que «salir» con mas texto 
que listado. En CLUB COMMODORE 
es nuestra intencion dar — siempre 
que sea posible — la informacion teo- 
rica necesaria pero acompahada de 
una aplicacion practica inmediata y 
probada. Este es el caso del programa 
que presentamos en este numero y 



que es uno (el mejor a nuestro juicio) 
de los conocidos como «Editores de 
caracteres». iQue es un «Editor»? Co- 
mo este concepto se utiliza a menudo 
en informatica, vamos a detenernos 
un poco en el. 

Un «Editor» es un programa que 
realiza unas funciones especificas. Las 
principales pueden ser: entrar datos, 
ordenarlos de alguna manera, modifi- 
carlos y, por ultimo, guardarlos para 
posterior utilizacion por el mismo u 
otro programa. Si aplicamos esto al 
caso de un editor de caracteres para 
el VIC, ello quiere decir que podremos 
crear nuevos caracteres, modificar los 



por PERE MASATS 

existentes y, de alguna manera, guar- 
darlos en disco o cassette para poder 
utilizarlos en los programas que los 
necesiten. 

Si entramos el programa cuyo lis- 
tado se da en la figura 1 y lo ponemos 
en marcha, despues del titulo nos dara 
a entender que debemos esperar a que 
termine sus esotericas actividades. 
Luego aparecera la pantalla dividida en 
tres areas: abajo, a la izquierda, se 
exhiben los caracteres que se pueden 
modificar; arriba, a la izquierda, los 
cuatro caracteres que estamos modi- 
ficando (se suele decir tambien «edi- 
tando»); en este momento y, a la dere- 






10 PRINT'TJWM EDITOR BE CflRfiCTERES" 

20 PRIHT"»M RRRR EL VIC — 20" 

30 F0RN—1T022 : PRINT" - " .: NEXT 

50 PRINT"JI»BH'ULSE HSRETURHBS PflRH M 

EMPEZHR" 

60 GETR*IF P*OCHR*a3)THEN69 

70 PRINT"r3M_lN MOMENTO POR FAVOR " : GOSUB38 



100 POKE36869 , 255 ■ POKE56 , 26 : POKE55 .. : POK 
ESS0 , 255 ' POKE52 , 26 ■■ V-7166 

120 6OSUB360 : X = : V=0 

1 30 POSUB390 

140 GOSUE160 

150 OOTO130 

160 GETfl* ■ fl-62-PEEK f 37 1 37) ■ POKE37 

:E=PEEKC37152 5 ' POKE37 154, 25 



■ U '■ ORR*= " E " ORRRN 



190 IFfl*="0"OPH*= 

«=V~1 

200 IFn*="Z"ORnt= ,, X"ORFl* = "C"ORPP,H 

=V->-l 

210 IFfl*^"Q"nRBt="R" ORfl$= " 2! " ORflRH 

X — X— 1 

220 IFR*="E" ORR* = " ri " ORR*= " C " ORB = 1 

—X-t-1 

230 IFRRND320RRQTHENR* = CHR*ir 133> 

243 IFX= — 1THENX- 15 

250 IFX=16THENX=0 

260 IFflt=CHR*< 1 33 > THENPOKEP-30720 

SUB5 10 : POKEQ, PEEKCG>OR2t<7-RX) 

270 IFR*=CHR*t 1 34 > THEHPOKEP-30720 

SUBS 10 : POKEQ-- PEEK t Q > RHC f255-2t<7- 

2S0 IFV=— 1THENV=15 

290 IFV=16THENV=0 

300 I FR*=CHR* <C 1 35 > THENGOSUB4 1 

310 I FR*=CHR* C 1 36 > THENOOSUB550 

320 I FR*»CHR* tl37) THEHR=PEEK (3686 

36869, 255 : IFR=255THENP0KE36869 , 24 

330 I Ffit=CHR J (138>THEH580 

340 I FR*-CHRt fl395THEN808 

350 RETURN 

360 PRlNT"n" :GDSUB490:FORV*19TO23 

TO 1 5 : POKE7680+V*22+X , X+ CV— 1 9 :■ * 1 6 

370 PQKE38400+22*V+X , 2 : NEXTX -■ V : R* 

SUB420 : RETURN 

380 FORN=0TO64*8 : POKE? 1 68+N , PEEK C 

■> NEXT ! RETURN 

390 P=38422+X+V*22 : POKER, 7 ■ I FPOE> 

ES, 4 



154 , 127 

B4THEHV 
D8THEHV 
B 1 6THEN 
19THEMX 



■THEN4 10 
(■■I " ■■ CH- 



300 D=17' 
310 CI=Ch 



, 174 : OO 


" 


rx ::■ :■ 


640 NO= 




650 RRI 




700 PR I 




KEN ,13: 




300 N = 


SO : POKE 


S10 RRI 





: NEXT : P 




820 I FN 




S30 PR I 




5 : RERDR 


: FOPX=0 


S40 PRI 




NEXT : PR 


="d" : GO 


9999 DR 


32768+H 


RERBV. 


THENPOK 





400 3=P : RETURN 

410 PRIHT"»a?" ■■ GETRt : I FR* 

420 PRINT'S WWIKr«B»«««»ii" R* 

K<7764> : IFCH>47THEH410 

430 GOSUB498 '• H=7764 : POKEH+ 1 . CH+ 1 = POKEH+2 

2 , CH-4- 1 6 : POKEH+23 , CH+ 1 7 

440 FORV2=0TO1 : FORX2=9TO 1 :CI=CH+X2+V2*16 

450 FORV1=0TO7 : FORX1=OT07 

460 I FPEEK c V-+-C I *S-+-V 1 >RND<2t(7-Xl > > THENPO 

KE7702+ < VI +V2#8> *22+X 1 +X2*8 , 170 

470 NEXTX 1 ■ VI , X2, V2 

4S0 RETURN 

490 PRINT"a" ! F0RN=1T0 16 : PRINT" SUM 

" = NEXT 

V RETURN 

|:RX = X:RV = V: I FX>7THENC: I=CH+1 : RX=*= 
RX-S 

320 IFV>7THENCI=CH-16 : RV = RV— e 
530 Q=V+CI*8+RV 
340 RETURN 

550 F0RH»V+CH»8T07175+(CH+1 ~j *S : POKEN, : N 
EXT : GOSUB490 

560 F0RN=V+fCH+16)*8T07175+(CH+17)*8 : POK 
EN , : NEXT ! RETURN 

580 POKE36869 , 240 HO=900B*CH*10 
600 PRIHT'TMW" : FORCH=CHTOCH+163TEP16 
610 F=V+CH*3 

620 PRIHTHO"DRTR"F","; : F0RH-FTOF+1 5 : PR I N 
TMIDt< STR* CPEEKCHJ),2>", " j ■ NEXT : PR I NT "II 

NO + 5 : NEXTCH 

NT "RUN 100" : FRINT"58" : 

NT" 3" .: : POKE 1 98 , 9 : FORN = 63 1 TO640 : PO 

NEXT : END 

NT'T3Wal" : FORM=HTOH+69STEP 1 = PR I NTM 

R I NT " B00N= " M : PR I NT " RUNS00 " 

<660THEN700 

NT"r3Kt«100RERDN : IFNTHENF0RN-NTON+1 

i POKEN, R • NEXT : GOTO 100" 
HT700 : FORN=800TO8406TEP 1 - PRINTN : 

I NT " POKE 1 , : SVS1 " : GOTO700 
TR 



Fig. 1 



^ 
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ESTE ES UN PROGRAMA 

QUE NOS PERMITE 

DEFINIR NUESTROS PROPIOS 

JUEGOS DE CARACTERES 

DE UNA MANERA FACIL Y 

PRACTICA Y ASI 

APROVECHAR LAS POSIBILIDADES 

GRAFICAS DEL EQUIPO 



cha, el aspecto en tamano natural de 
los cuatro caracteres en curso de edi- 
cion para facilitar el trabajo. 

En la matriz de edicion un «*» sig- 
nifica un punto en la pantalla y un «.» 
significa un punto vacfo. El trabajo del 
editor consiste en modificar estas con- 
figuraciones — que corresponden a las 
standard del VIC — y obtener las ne- 
cesarias para un juego, etc... Para ello 
el punto que cambia de color de forma 
intermitente nos indica la posicion del 
«cursor» que nos va a facilitar el tra- 
bajo de edicion. Para moverlo debe- 
mos utilizar las teclas siguientes: 

W: Para moverse hacia arriba 
X: Para moverse hacia abajo 
A: Para moverse a la izquierda 
D: Para moverse a la derecha 

Por lo que se refiere a las teclas de 
edicion propiamente dichas, son las 
conocidas F1 a F8 y funcionan de la 
siguiente manera: 

F1: Poner un punto en la posicion. 

F2: Ver los caracteres normales. 

F3: Quitar un punto. 

F4: Generar las instrucciones DATA 
para el bloque actual de caracte- 
res. 

F5: Seleccionar otro bloque de carac- 
teres a editar. Como se observara, 
los caracteres se editan de cuatro 
en cuatro. Para escoger el bloque 
de cuatro caracteres que se quiere 
editar se pulsa F5 y, cuando apa- 
rezca el interrogante, se responde 
con el primer caracter del nuevo 
bloque. 

F6: Elimina el editor y deja solamente 
las instrucciones DATA correspon- 
dientes a los caracteres editados. 



F7: Pone en bianco el bloque de ca- 
racteres que se estan editando. 

Como se ha podido observar, la «sa- 
lida» del editor es una serie de ins- 
trucciones DATA que se pueden alma- 
cenar en cinta o disco como un pro- 
grama normal al que posteriormente 
se le anadira el programa propiamente 
dicho que maneja estos datos. Vea- 
mos un ejemplo: 

Entramos el programa y modifica- 
mos un bloque de caracteres, por 
ejemplo, el @-A-P-Q. Una vez realizada 
la modificacion, pulsamos F4 (crear las 
instrucciones DATA) y seguidamente 
F6 (salir del editor conservando las 
instrucciones DATA). En este momen- 
to aparecera el mensaje READY. Si ha- 
cemos LIST, obtendremos un pequefio 
programa con numeros de linea 100, 
9000... y 9999. Este programa es el 
que podemos guardar en disco o cinta 
y que debera ser el que incorporemos 
en el programa que necesite caracte- 
res especiales. Como prueba haga 
RUN y luego POKE36869.255. En este 
momento, los caracteres definidos de 
nuevo apareceran con el nuevo aspec- 
to. Para volver a las condiciones nor- 
males haga POKE36869.240. En este 
punto (o antes de realizar la prueba 
anterior) se puede hacer un SAVE de 
este programa para su posterior utili- 
zacion. En el programa que utilice este 
nuevo juego de caracteres se tienen 
que ejecutar las Ifneas que nos ha su- 
ministrado el editor y, en el momento 
de necesitar los nuevos caracteres, 
debe hacerse POKE36869.255, en el 
caso de trabajar con 8K o menos, o 
POKE36869.207 con mas de 8K. En 
ambos casos, se puede volver a la 
normalidad con POKE36869.240 6 PO- 
KE36869.192 respectivamente. 

El programa que se adjunta funcio- 
na con 8K 6 menos de memoria. 

(continuara) 
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Bev!«ta Eepai"vow de 



Elecironica 



En sus paginas ya se han publica- 
do, desde el n.° 1 (febrero 1982): 

• Programas para VIC-20: 

— Generacion de sonido y pro- 
grama para piano 

— Calculo de estabilizadores 
con Zener 

— El Despertador 

— El Quinielista. 

• Se han publicado articulos sobre 
los siguientes temas: 

— Lenguajes de programacion. 

— La ampliation de un ordena- 
dor con los perifericos. 

— Que es y como funciona un 
ordenador personal. 

— Cuadro de ordenadores pro- 
fesionales/personales en el 
mercado espanol. 

— Interfaz para cassette. 

— Cuatro puntos decisivos en 
la eleccion de un ordenador. 

— Los modems. 

— Discos flexibles (floppy disk). 

— Realizacion de un teclado 
ASCII a partir de un hexa- 
decimal. 

— Las nuevas CPUs: arquitectu- 
ras disfintas, mas potencia, 
mayor flexibilidad. 

— Serie de artfculos sobre los 
microprocesadores con anali- 
sis de todos sus aspectos, en 
forma progresiva. 

— Aplicaciones de microproce- 
sadores: un sistema de sema- 
foros en la via publico, Sis- 
tema de alarma anti-robo, 
Sencilla aplicacion para mo- 
tores de cassette o de jugue- 
tes electricos. 

— Rutinas utiles para la clasifi- 
cacion de datos (SORT). 

— Descripcion de la PIA. 

— Los convertidores analogico- 
digitales y digital-analogi- 
cos. 

— Nuevos equipos operativos 
de burbujas magneticas para 
la investigacion y las aplica- 
ciones industriales. 

— Los calculos de puentes de 
medida realizados con micro- 
ordenador. 

— VIC-20 y micros PET/CBM. 

— Diseno y simulacion de un 
proyecto con microprocesa- 
dor, desarrollado con el AIM- 
65. 

— Las impresoras. 

— Temporizador programable. 

• Fichas tecnicas de microprocesa- 
dores y de micro-ordenadores 

Para numeros atrasados y para 
suscripcion anual (1.975 ptas.), 
dirigirse a: 
REDE - Apdo. 35400 - Barcelona 
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APLICACIONES EDUCATIVAS 




por JOAN V. BAZ 

£ sta es realmente una colaboracion y no una nueva section, aunque si la cosa fun- 
cionara y la imagination — que sabemos inagotable — de nuestros lectores se orien- 
tara hacia la colaboracion... 

Joan Baz es maestro en un pueblo de Tarragona; es joven y, sin embargo, ha visto 
mundo y sera por esto que no tiene pelos en la lengua. 

Nota de la Redaccion: Ponemos al VIC como testigo de que CLUB COMMODORE 
no ha tenido nada que ver en la redaccion de este articulo. No obstante, no resistimos 
la tentacion de poner de manifiesto una de nuestras adhesiones mas inquebrantables a 
las tesis de Joan sobre el tema de las COLABORACIONES. 




Ooy, como tantos de los que leeis es- 
to, un «Vic-adicto». No desde hace mucho, 
claro, pero hay que reconocer que crea 
una cierta dependencia. 

La razdn que me impulsa a escribir es- 
tas lineas es que creo que estamos en un 
cierto «impasse». Me explicare. Esta Re- 
vista debe servir para que nos pasemos 
informacion, sugerencias, ideas, entre 
usuarios del Vic [entre otros) y no es asf. 
Hay pocas colaboraciones. iQue es lo que 
pasa? 

Creo que se debe al poco tiempo que 
hace que tanto el Vic como la Revista es- 
tan en la calle, por un lado. Por otra parte, 
conozco gente que podrfan enviar progra- 
mas y no lo hace por miedo al ridicule A 
mi entender eso es lo realmente ridiculo. 
Todos somos novatos en «Vicsic», dado 
que es una maquina muy reciente, asi que 
rompamos con el complejo y si queremos 
que la cosa funcione pongamonos a escri- 
bir. Todos ganaremos con ello. Creo que 
un programa regular es mejor que ninguno 
y puede dar lugar a comentarios y enmien- 
das con lo que nos pueden ayudar. 

Y como el movimiento se demuestra an- 
dando, aquf teneis mi primer programa: 
«Tablas». Lo escribi al poco tiempo de re- 
cibir mi Vic para ayudar a los nifios con 
quienes trabajo a repasar las tablas de 
multiplicar. Despues de meses de funcio- 
namiento han quedado demostradas tres 
cosas. 

a) Los nifios disfrutan estudiando con 
ordenador incluso materias aburridas y re- 
petitivas como esta. 

b) El Vic es capaz de aguantar meses 
de trato duro. 

c) Dado que los nifios han mejorado 
sensiblemente su conocimiento de las ta- 
blas, hemos de reconocer que el metodo 
funciona. 

Antes de pasar a comentar el programa 
quisiera dejar bien claro que no es mi in- 
tencion hacer un panegfrico del Vic. En 
proximas colaboraciones le dare un «vis- 
tazo» critico. 

Dejando aparte los REM (remarks, co- 
mentarios que no afectan al programa en 
si), empezamos en la linea: 



60: Asigna nombre a las variables de los 
registros de sonido y pantalla. 

70: Limpia el buffer", da entrada a la 
variable A (tabla a repasar). 

90-100: Imprime la pregunta a calcular, 
limpia el buffer, da entrada a la variable C 
(respuesta del nifio). 

110: Caso error (respuesta incorrecta) 
continua en 170. 

120-140: Respuesta correcta, imprime la 
pregunta y la solucion, un mensaje anima 
al nifio, en la subrutina 270 el color y el 
sonido realzan el mensaje. 

150: Retraso de tiempo (variable T) pa- 
ra darle tiempo a leer. 



160: Empieza de nuevo. 

170: La variable N controla el numero 
de veces que se ha equivocado en la mis- 
ma pregunta; si es mayor o igual a tres, 
sigue en correccion (240). 

180-200: Cambia el color y fondo de la 
pantalla, la limpia e imprime un mensaje 
por la equivocacion. 

210-230:Sonido para la equivocacion (si- 
renas). Vuelve a la pregunta (90). 

240: Correccion. Imprime la respuesta 
correcta. 

250: Envfa a 380 (sonido). 

260: Empieza de nuevo. 

270: Subrutina el sonido. 

380-400: Sonido, empieza de nuevo. 

* El buffer de teclado es una especie 
de deposito donde se van recogiendo las 
teclas que han sido apretadas antes de su 
ejecucion; POKE 198,0 lo limpia y es bue- 
na practica hacerlo antes de un INPUT en 
programas que van a ser utilizados por ni- 
fios (suelen jugar con el teclado). _ 



1 REM **************** 

2 REM KEPHEO DE TRBLRS 

3 REM **************** 

4 REM »JURN V. ERZ « 

5 REM **************** 

60 S 1 =36376 : S2=36S7S : S3=36S7S ' EP=368?3 
70 POKE13S,0:INPUT"rHmaUE TBELFI REPHSflMO 

S";fl 

30 B= I NT < KHB <1>*9) 

90 PRINT'THSBSIM "R; "X";E; " = "; 

130 POKE19S,0:1NPUTC 

110 IFCOfl*ETHEH170 

120 PRINT'TDSDHW " R ; ■■ X " i E ; " = " ; C 

130 PRINT"XUIHS»»BMI FELIC I DnSESMMMMI 
»■•>■! HR3 P.CERTP.D03B" 

140 OOSUE27B 

150 FORT=1TO1000 : HEXTT 

160 RUN 

170 N="N+1 ■- IFfD»3THEN240 

130 POKEBP , 202 : PR I HT " rWWDOffl " R ; •• X " ; B ; 

" SK>S" ; C 

190 PRINT"MKDnSTC>B SIGMIFICR'. NO ES IGU 

Rl_ R, . . ■■ 

200 PRINT"M»aBt1E TEMO QUE NO TE LO MERE 

ES MUV BIEN, INTEN-MTRLO DE NUEVOHSS" 

210 POKES3, IS : FORL-1TD7 : FORM=180TO235STE 

P2:POKESl.M: FORT" 1TO10: NEXTT ! NEXTM 

220 POKES 1 - : FORM- 1 TO 1 00 : NEXTM : NEXTL i POK 

ES3 , ■- POKEBP , 27 

230 GOTO90 

240 PRINT'TD-WrarSBiaESTR BIEH.TE LO D I RE ■ BBS 

"j^mmw "jp; "X";B;"="j<fl#B> 

250 OOTO3S0 

260 RUM 

270 POKEBP, 19S : POKES3, 15 

2S0 FORL= 1 4STO220STEP . 7 

230 POKESl,L 

300 NEXTL : POKEBP, 154 

310 FORL-128TO200 

320 POKES 1,L 

330 NEXTL ' POKEBP, 253 

340 FORL=200TO 1 28STEP- 1 

350 POKES 1,L 

360 NEXTL : POKEBP, 27" 

370 POKES3, : POKES 1 , : RETURN 

330 POKES3 ,15: FORL" 1 TO 1 5 : PORM=200TO220-4-L 

*2 : POKES 1 , M : NEXTM i NEXTL 

390 POKES3 , ■■ POKES 1,0: FORT= 1 TO500 • NEXT 

400 RUN 

REHDV. 



; 
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NOTICI AS 



program as para 
el VIC-20 



£> n este numero iniciamos una rese- 
na de los programas para el VIC-20 
que comercializa MICROELECTRONI- 
CA Y CONTROL, S. A. Aquf estan los 
primeros: 

PROGRAMAS EN DISCO 

Ref. D-1002 
Programa QLS 

Registro de contactos para radio- 
aficionados. P.V.P. 3.000. 

PROGRAMAS EN C1NTA 

Ref. C-128 

Programa Programacion lineal 

Metodo simplex. Calculo del valor 
de las variables que, satisfacien- 



do las restricciones, hacen maxi- 
ma o minima una funcion. En cas- 
tellano. P.V.P. 500. 

Ref. C-129 
Programa Matrices 

Suma, resta, multiplicacion, multi- 
plicacion por un escalar e inver- 
sion de matrices. En castellano. 
P.V.P. 500. 

Ref. C-131 

Programa Regresiones I 

Contenido: 

Regresion lineal: Calculo por mi- 

nimos cuadrados de la recta que 

se ajusta mejor a una nube de 

puntos. 



CLUBS DE USUARIOS 



jAI fin empieza esto a moverse! De Barcelona nos llega el 
siguiente anuncio con ruego de publicacion: 

SE ANUNCIA LA INMINENTE CREAClON DE 
UN CLUB DE USUARIOS DE VIC-20 EN BAR- 
CELONA. 

LA PRIMERA REUNION TENDRA LUGAR EL 
DIA 13 DE ENERO DE 1983 EN: «SISTEMA», 
BALMES 434, TELEFONO 211 5440. A LAS 7 
DE LA TARDE. 

jA ver si cunde el ejemplo! jHasta pronto! 



Regresion multiple: Variable de- 
pendiente en funcion de n varia- 
bles independientes de grado 1. 
en Castellano. P.V.P. 500. 

Ref. C-132 

Programa Regresiones II 

Contenido: 

Regresion de orden n: Variable 
dependiente en funcion de varia- 
ble independiente de grado n. 
Regresion exponencial: Ajuste 
nube de puntos a una curva expo- 
nencial. 

Regresion geometrica: Ajuste de 
una nube de puntos a una curva 
geometrica. En castellano. P.V.P. 
500. 

Ref. C-133 

Programa Estadistica I 

Distribucion normal, Poisson, bi- 
nomial, chi-cuadrado, Student, F 
de Snedecor. En castellano. P.V.P. 
500. 

Ref. C-134 

Programa Estadistica II 

Contenido: Calculo de la media, 
varianza y desviacion tipo, tanto 
de la muestra como de la pobla- 
cion, estando los datos agrupados 
o no. 

Test de chi-cuadrado y test de Stu- 
dent. En castellano. P.V.P. 500. 

Ref. C-135 
Programa Sistemas 

Contenido: 

Resolucion de sistemas de n ecua- 
ciones con n incognitas. 
Resolucion de ecuaciones de gra- 
do 2 dando las soluciones tanto 
reales como complejas. 
Calculo de permutaciones y de 
combinaciones. En castellano. 
P.V.P. 500. 



PROGRAMAS EN CARTUCHO 

Ref. C-404 

Programa Sargon II Chess 

Para jugar al ajedrez «contra» el 
VIC-20. Con 7 niveles de dificul- 
tad. Uno de los juegos mas fasci- 
nantes y educativos que existen 
en una de las mejores versiones. 
P.V.P. 4.500. 

Ref. C-405 

Programa Dadar Ratrace 

Un juego de persecucion de gran 
efecto en la pantalla de su tele- 
visor. P.V.P. 4.500. 



G 
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En la figura 1 se da el listado de 
algunos segmentos de programa que 
pueden ser de utilidad para los usua- 
rios del VIC-20. Por supuesto, este lis- 



tado no constituye un programa en- 
tero en sf mismo y deben utilizarse 
las partes que sean necesarias. Vea- 
mos estas partes una por una: 



1 REM TRUCO HO 1 i 235 COLORE3 

10 FORX-BT02SS 

20 POKE36879.X 

30 PRI HTCHR* >; 1 47 > 

40 FORT= 1 TO700 : NEXTT 

50 HEXTX 

60 REM TRUCO HO 2 J UN MEHSRJE RUEDR POR 

l_R PRHTRLLR 

TQ POKE3S367,12 REM PUEDE ESCOJER EL HUM 

ERO DE LINERS DE SU MEHSRJE 

S0 PR I HTCHR* < 1 47" > 

90 PRIMT'TJSU MEHSRJE. 

100 FORX=0TO120 

POKE36S65, K 

NEXT 

GOTOSB 

REM TRUCO HO 



1 10 
120 
130 
140 
LLR 
150 
160 
170 
ISO 
130 
200 
210 
ENO 
220 
230 
240 
250 
= 16 
260 
278 
230 
290 
300 
310 
320 
330 
340 
350 
368 
370 
330 
390 
400 
410 
420 
430 
I OH 
440 
450 
460 
470 
4S0 
430 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
60© 
610 
620 
630 
640 
650 
660 



ROTRCION DE L.R PHNTR 



•MRREO" 
. 23STEP. 1 

13+4*SIN(L) 
. 27+4*COS<L) 



PR I HTCHR* (14; 

FORL=0TO6. 

POKE36S64, 

POKE36365, 

NEXT 

OOTO160 

REM TRUCO HO 4; DIEUJRR LR FUHCION S 

PRINT"Sarj" 
POKE36S67, 22 
POKE36B65 , 60 

F<s)»0:Fi:0:. = i2s 



p< l . 



-64 : F(2)=32 :F(I 



*- C4?=3 : p<5^=4 = FC6J=2 : F<75=1 

FORQ=0TO255 

POKE7680+G, a 

POKE3S400+S, 2 

NEXTS 

FORO=5 1 20TO5 1 20+255*3 

POKES, 

NEXTQ 

POKE36869, 253 

POKE36S66 , PEEK ■; 36366 > OR 128 

POKE36S67. 150 

REM 

REM FUHCION R DIEUJRR EN 1_ I HER 4 10 

REM 

FORC-0TO175 

L=45+40*3 IN<C/10) 

REM 

REM RUTINS DE DIEUJO EN R1_TR RESOLUC 

REM 

H=5120 

1_R = L^"S 

Lfl=INT<LR5 

R = R-t- <; 1_R* 1 76 > 

1_R= -C 1_R— 1_R j *3 

CR = C<*3 

cr-int<cr:' 

R=fl+(CH*8) 

R=R+LR 

CR= I HT •; C CR — CR > *S > 

POKER , PEEK •; r :> orf ■; cr ;• 

NEXTC 

REM 

REM ESPERRR UHR TECLR 

REM ENTOHCES VOLVER R NORMRL 

REM 

GETR* : IFR*=" "THENG10 

POKE36369, 240 

POKE36866, 150 

POKE36867, 174 

POKE36S65.. 33 

FRIHT'TT" 

(Fig. 1) 



TRUCO NUM. 1 - LiNEAS 10-50 

Este pequeho programa que exhibe 
sucesivamente las 255 combinaciones 
de colores de pantalla y marco es util 
para determinar, paso a paso, el juego 
de colores que nos puede interesar 
para una aplicacion determinada. El 
POKE de la linea 20 es la clave del 
asunto: ejecute el programa y cuando 
vea la combinacion deseada pulse 
RUN/STOP— RESTORE (para detener 
el programa) y seguidamente pulse 
PRINT X y tendra el ultimo valor que 
se ha introducido en el registro corres- 
pondiente del controlador de video. 
Este es un sistema algo retorcido de 
resolver el problema. Lo mas elegante 
es consultar las paginas 37 6 134 del 
MANUAL DEL USUARIO. 

TRUCO NUM. 2 - LiNEAS 70-130 

Se pueden cambiar las dimensiones 
de la «ventana» de video del VIC uti- 
lizando algunos POKES especiales que 
ya se han expuesto en otras partes de 
nuestra Revista. Esta seccion de pro- 
grama usa algunos de ellos para exhi- 
bir un mensaje que se desliza por la 
pantalla de una manera que llama mu- 
cho la atencion. En la linea 90 puede 
insertarse el mensaje. 

TRUCO NUM. 3 -LINEAS 150-200 

Si es necesario marear a alguien 
por medios sofisticados, se puede uti- 
lizar este truco que tambien se bene- 
ficia de la posibilidad de jugar con los 
parametros de video del VIC. Con esta 
rutina se consigue hacer dar vueltas 
al espacio dedicado a caracteres. 

TRUCO NUM. 4 -LINEAS 220-660 

Este es el mas espectacular de to- 
dos, pues permite realizar dibujos en 
alta resolucion sin necesidad de car- 
tucho alguno. En el ejemplo que adjun- 
tamos se exhibe el juego de caracte- 
res y luego se dibuja la funcion seno. 
Como ya hemos explicado mucho del 
vie (VIDEO INTERFACE CHIP), deja- 
mos a la paciencia del lector el des- 
arrollar otras posibilidades de trazado 
grafico. _ 
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NOTAS 




Dar una lista de numeros por panta- 
lla — o impresora — puede producir 
cierta frustracion y desconsuelo si se 
utiliza para ello la instruccion TAB. 
Veamos un ejemplo: 

Si el valor de la variable es cero, 
este numero se escribira en la colum- 
na de la izquierda y esto mismo suce- 
dera con todos los valores de una sola 
cifra. Con dos o mas cifras, las canti- 
dades se alinearan por la izquierda 
(se suele hablar de justificacion del 
margen izquierdo) que es lo contrario 
a los mas elementales criterios de 
Iegibilidad y elegancia. Es evidente 
que se debe usar el numero de digitos 
(incluyendo el punto decimal) para 
controlar la expresion TAB. Un numero 
tiene a la izquierda un espacio reser- 
vado para el signo y a la derecha uno 
para el cursor que deben tenerse en 
cuenta. La funcion LEN «cuenta» el 
numero de caracteres de una cadena 
alfanumerica pero, para que nos sirva, 
debemos convertir la cantidad previa- 
mente en una cadena. Esto se hace 
con STRS. Veamos: 

X = LEN ( STRS ( A ) ) — 1 

donde A es la variable numerica, debe 
darnos lo que buscamos. El espacio 
del cursor a la derecha no se tiene en 
cuenta por STRS y se resta 1 para com- 
pensar el espacio de la izquierda. Si 
hacemos PRINT TAB (10— X) la cosa 
tiene aspecto de funcionar £no? No, 
aun faltan algunos detalles. 

Hay una serie de posibilidades que 
se deben tener en cuenta. A veces se 
desea incluir ceros no significativos 
en las cantidades que se imprimen 
(ej.: «0038» en lugar de «38»). Con nu- 
meros que incluyen decimales pode- 
mos necesitar un numero fijo de es- 
tos, seguidos por los ceros no signifi- 
cativos que hagan falta. Todo esto 
afectara el posicionamiento de las can- 
tidades. 

Incuestionablemente la manera mas 
facil de manejar el asunto de forma- 
tear cantidades (otra palabra de argot 
informatico, espero que quede bien 
claro su significado por el contexto) 
consiste en convertirlas en cadenas 
alfanumericas: 



AS = MIDS(STRS(A) ,2) 
STRS convierte «A» en una cadena y 
MIDS se utiliza para tomar el segundo 
caracter — es decir prescindiendo del 
primer espacio — . Para afiadir ceros 
no significativos usaremos la funcion 
RIGHTS: 

AS = RIGHTS ( «000000» + AS, 4 ) 

Si «A» es un entero, esto nos dara 
una cadena de cuatro caracteres. El 
numero de ceros no significativos de- 
pendera de la longitud de «A» (ej.: 
«16» se vera como «0016», sin embar- 
go «1024» quedara igual). Para abre- 
viar todo lo anterior se puede obtener 
con: 

AS = RIGHTS ( «000000» + MIDS 
(STRS (A), 2), 4) 

El redondeo de numeros tiene su pe- 
queno truco. Lo primero es decidir 
que numero de decimales queremos. 
El siguiente es un ejemplo para dos 
dfgitos decimales: 

A = 1035.55534 

A = INT (A" 100)/ 100 

PRINT A 

1035.55 

Este ejemplo «mueve» el numero dos 
cifras a la izquierda, corta la parte de- 
cimal que queda y lo «mueve» a la 
derecha dos lugares otra vez. No obs- 
tante, esto no es propiamente «redon- 
dear» sino mas bien «truncar» que no 
es lo mismo. Para redondear tenemos 
que tener en cuenta la importancia de 



los decimales que despreciamos. Asf 
nuestro ejemplo se convierte en: 

A = 1035.55534 

A= INT(A* 100 + .5)/ 100 

PRINT A 

1035.56 

jEsto si es un redondeo! (ffjese en 
la segunda cifra decimal). De una for- 
ma general la segunda linea quedaria: 

A= INT (A * 10 AD + .5)/ 10 AD 
Donde «D» es el numero de decimales 
deseado. 

Los valores que terminan con un 
solo decimal o menos deben ser re- 
dondeados con ceros no significativos. 
De nuevo esto puede hacerse con ma- 
nipulacion de cadenas de caracteres: 

A = 1035.59534 

V = A 

A = INT (ABS (A) * 100 + .5) / 100) 

PRINT A 

1035.6 

SS = CHRS ( 32 — ( V<0 ) * 13 ) 

AS = MIDS (STRS (INT (A)), 2) 

DP = INT ((A — INT (A)) MOO + .5) 

AS = AS + »,» + RIGTHS 

( «00» + MIDS ( STRS (DP), 2 ), 2 ) 
AS = RIGTHS(«[10esp. ]» + 

SS + AS, 10) 
PRINT AS 
1035.60 

Esto — quizas — tiene un aspecto 
algo confuso, pero lo hace todo: ana- 
de ceros no significativos, redondea, 
etc... Debe hacerse notar que hemos 
utilizado el valor ABSoluto de A antes 
de entrar la rutina (aunque V conserva 
el valor original de A). SS sera o un 
espacio o un signo menos dependien- 
do del valor de A. DP sirve para tomar 
los decimales de A y redondear esta 
cantidad. Lo siguiente es montar estas 
partes en un todo que sera la cadena 
AS, — notese que se sustituye el pun- 
to* decimal utilizado en los paises an- 
glosajones por la coma que se usa 
aqui — y, por ultimo, anadimos espa- 
cios en bianco y el signo con SS. En la 
figura 1 se dan las rutinas en forma 
de programa, dando como resultado la 
impresion justificada a la derecha con 
y sin ceros. _ 
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REN MINI MOTHS J IMPRESION JUSTIFICHlm 

REM RUTIHH DE IMF-RES I OH SIN CEROS 

I NPUTR 

V = R 

ft= I NT <RESCR>*1 00+ . 5 > S 1 00 

S*=CHR* t 32— C V<0 >#13> 

H*=(1IDt<STR*CINT':Ri5,£5 

DR= I NT < < ft— I NT <R>>* 10O+ . 5 j 

R* = R*-+-" .. "+RIGHT*< "00"+MII5*<STR*CDP> > 2 

R*=RIGHT*<" "+SS+FI*. 10? 

PRIHTTHBC 12>R* 

REM RUTINR DE IMPRESION CON CEROS 

INPUTH 

V = R 

R= I NT <; RBS Cfl)*l 80+ . 5 > S 1 00 

S#=CHR* < 32— < V<0 5*13) 

R*=M I D* (STRJ(IHTffi;},2) 

BP=IHT<( ft— I NT CR>)*10e+.5j 

R*=R*-*- " .. "+RI GHTt <. " 00 "+11IDt< STR* CDP5, 



IFSJ=" "THEHSJ=="0" 

R*=R I GHTt C " 0000000000 •■ +R* , 1 y 

PRINTTRE< 1 1 3St+R* 



(Fig. 1) 



^ 



E.club commodore 
16 



Los lectores que se sientan impulsados a plantear una consulta que pueda aclarar sus dudas 
y — ipor que no? — la de otros muchos, pueden manifestarla por escrito remitiendola a: 
CORREO ABIERTO - «Club Commodore « - Calle Taquigrafo Sena, n.° 7, 5." planta - Barcelo- 
na-29. Pondremos todas nuestras luces a su disposicion para las aclaraciones. jQue nadie 
se quede con sus dudas, cavilando en solitario! 



Pregunta: £Se puede conectar una 
unldad de discos doble tipo 8050 6 
4040 al VIC? 

Respuesta: Cuando se disponga 
del cartucho de interfaz IEEE-488 para 
el VIC (anunciado por COMMODORE) 
se podra conectar al VIC cualquier pe- 
riferico de la linea CBM y cualquier 
instrumento (este bus es muy utilizado 
en instrumentacion) que incorpore es- 
te standard. 

Pregunta: iComo puedo conectar 
un modem al VIC? 

Respuesta: Depende de que tipo 
de interfaz con el ordenador use el 
modem (modem significa MOdulador- 
DEModulador y sirve para transmitir 
y recibir informacion a traves de la 
linea telefonica). Si este Neva interfaz 
para el bus IEEE-488 la pregunta queda 
resuelta en el parrafo anterior; si Neva 
interfaz RS 232 C, para el VIC existe 
un cartucho que se conecta al port de 
usuario y que permite enlazar con este 
standard serie (asf como el IEEE-488- 
es el bus paralelo mas utilizado, el 
RS 232 C es el mas popular de los bu- 
ses de datos serie). En este caso el 
sistema operativo (KERNAL) del VIC 
permite utilizarlo como si fuera un 
periferico mas. 



Pregunta: iComo se puede conec- 
tar una impresora al VIC-20? 

Respuesta: A) Lo mas facil (y ba- 
rato) consiste en conectar la impreso- 
ra que vende COMMODORE para el 
VIC. No obstante, en determinadas 
aplicaciones, pueden necesitarse algu- 
nas caracteristicas que no se incluyen 
en la impresora del VIC (ej., un ancho 
de papel mayor). En este caso: 

B) Algunas impresoras llevan como 
enlace standard el RS 232 C (vease la 
pregunta anterior), en este caso se 
puede utilizar el cartucho de interfaz 
para este standard. 

C) Otro de los enlaces tipicos de 
las impresoras es el llamado TIPO 
CENTRONICS que no es mas que un 
enlace paralelo de 7 6 8 bits a nivel 
TTL (esto indica los niveles de tension 
de las sefiales que se intercambian 
el ordenador y la impresora y que son 
+ 5 V para el 1 logico y V para el 0). 
En este caso se puede conectar la im- 
presora directamente ai port de usua- 
rio del VIC que dispone de estos nive- 
les de tension. Entonces la informa- 
cion se manda en paralelo y no en 
serie como en el caso del RS 232 C, lo 
cual es mas rapido pero tiene el incon- 
veniente de no poder usar las rutinas 
del sistema operativo porque cada im- 
presora tiene su sistema de intercam- 
bio de informacion. 



MARKETCLUB 



• Se busea experto en VIC-20 para eolaborar en la creacion y coordination de 
un Club de Usuarios de VIC en Barcelona. Llamar a Srta. Rosa Romero. Tele- 
fono 211 54 40. 

• Vendo cartucho 16K VIC-20, por 14.000 ptas. Hago programas en Basic de 
Commodore (todas las versiones) bajo encargo. Desearfa contactor con usuarios 
de Commodore en la zona de Madrid, para cambio de programas, impresiones, 
pokes especiales, etc... Razon: Francisco Gutierrez. Santiago Rusiriol, 12. MA- 
DRID-3. Telef. (91) 253 13 40. Horas comida y cena. 

• Vendo equipo CBM 3032 y 3040 (CPU y Floppy). Interesados llamar a Miguel 
a I (93) 300 16 27 de BARCELONA. 

• Desearia contactor con personas interesadas en la ensenanza de la Informd- 
tica a jovenes de 9-14 anos para adquirir programas y documentacion. Llamar 
a Eduardo Guardino al (93) 209 94 49 de BARCELONA. 
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Pregunta: i Puede invertirse hacia 
arriba el avance automatico de la pan- 
talla (SCROLL)? 

Respuesta: Puede hacerse SCROLL 
invertido con una rutina en lenguaje 
maquina. No existe en ROM una rutina 
que pueda hacer esto. Asi pues, hay 
que escribir una. 

Pregunta: £Hay algun comando 
asignado a las teclas de funcion en 
el cartucho de ayuda al programador? 

Respuesta: Si, hay dos juegos de 
funciones que se asignan autornatica- 
mente al inicializar el cartucho (al ha- 
cer SYS 4096*7 + 9 6 SYS 28681). No 
obstante, estas funciones se pueden 
redefinir segun las necesidades del 
usuario. 

Pregunta: £Es posible devolver al 
VIC a una configuracion de memoria 
sin expansion y sin quitar los cartu- 
chos? 

Respuesta: No, para trabajar como 
si tuvieramos el VIC con un mfnimo 
de memoria hay que desconectar di- 
cha memoria y para ello es imprescin- 
dible cerrar el interruptor de red. 

Pregunta: ^Corno puede moverse 
la memoria de pantalla en el espacio 
de memoria del VIC? 

Respuesta: Para cambiar la posi- 
cion de la memoria de pantalla hay que 
cambiar el contenido de los cuatro bits 
mas altos de la posicion de memoria 
36869. Este es el puntero de memoria 
de pantalla en el controlador de video. 
Ademas, debe «decirsele» al editor de 
pantalla (el programa en el sistema 
operativo que se dedica a la gestion 
de la pantalla) donde ha de hacer sus 
operaciones. Esto se consigue hacien- 
do un POKE en la posicion 648 con el 
valor del BYTE mas significativo de la 
nueva direccion. Luego debe reinicia- 
lizarse el sistema operativo pulsan- 
do simultaneamente RUN/RESTORE o 
con SYS 65234. 

Pregunta: £En que posicion de me- 
moria empieza el BASIC con los car- 
tuchos de 8 y 16K conectados? 

Respuesta: El BASIC (START OF 
BASIC) se localiza en 4096 decimal 
con mas de 8K de memoria. 
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/t« es #/ r/C-20 

• Lenguaje BASIC extendido. 

• Slstema operativo COMMODORE. 

• 5 K RAM ampliable a 32 K. 

• 16 colores, 4 generadores de sonido 

• 66 caracteres graficos. 

• Perifericos disponibles: 

- Cassette, 

- Impresora de agujas, 

- Unidad de disco de 170 K. 

Asl hace las cosas el VlC-20 

• Ense i i atica. 



: ■ ... ..■'■■:■■■:■■ ".,... 

. \ -MANUAL DEL USUARK). 

. • IN i ROIXX C HA Al i J NCR A.H- DL 

itawiM • \ J? PROGRAM AS O 



» Efectua todo tipo de calcutos 
matematicos. 

• Reatiza funciones docentes, 

• Se encarga de multiples tareas 
profesionales. 

• Proporciona divertidos momentos de 
ocio. 

• Ayuda a planificar labores domesticas. 

• Hace todas las aplicaciones 
que Vd. imagine. 







